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SATSSS80 ~ SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-19 1:04:1 AX/VMS Macro V04- Page 1 
vOe=000 8: SEp-198¢ 4:99:43 UETPSY. SRESSATSSseo MAR; 1 . (1) 


- TITLE FATSS380 - SATS SYSTEM SERVICE TESTS (SUCC S.C.) 
-IDENT ‘V04=000' 


LAR RRRRAAAAAAALASALARALALAAAAA AAA A RASA RARER RARER RARER RAR REARS ARAL ASAD ESS SD 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


® ® 
a ® 
* ® 
® it 
of © 
® ® 
* THIS SOFTWARE 1S FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
© OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE 1S HEREBY = 
* TRANSFERRED. ‘ 
® * 
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
* CORPORATION. * 
® & 
ot ® 
® ® 
aa & 
® ® 
:* ® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


PARR RRRSASAAAAALASALALALASASALER ERASERS ESE S ARERR ERR RS RARE AERA RSA ESR ARR ADA SD SS 


; FACILITY: SATS SYSTEM SERVICE TESTS 


; ABSTRACT: The SATSSS80 module tests the execution of the following 
; VMS system services: 


; SPURGWS 

; ENVIRONMENT: User mode image. 

3 Needs CMKRNL privilege and dynamically acquires other 
: privileges, as neede 

> AUTHOR: Larry D. Jones, CREATION DATE: JULY, 1979 

: MODIFIED BY: 


v03-002 KDM0002 Kathleen D. Morse 28-Jun-1982 
Added $PRVDEF. 
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SATSSSBO - SAT T 
S00 5808 DECLA 
; .SBTTL DECLARATIONS 
+ MACRO LIBRARY CALLS 
. LIBRARY /SYSSLIBRARY:STARLET.MLB/ 
$JPIDEF GETUPI definitions 
SPHDDEF ; rgcges header definitions 
rivi Dees Tex t ger '9 itions 


SPRVDEF 
$SHR_MESSAGES UETP,116,<<TEXT, Info>> + 3 UE T definition 
SSFDEF : stack frame er oteda ons 


OOONA UE WO DOONAN 


SSSDEF ; syaten stetys code definitions 
SSTSDEF ; STS definitions 

: SUETPDEF ; UETP message definitions 

: Equated symbols 

WARNING = 0 ; warning severity value for msgs 

SUCCESS = 1 3 Sussess 

ERROR : § : al te 

INFO = 3 satoraatten ™ = ee 

1 SEVERE = 4 ; fatal - _ wpe 
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SATSSS80 = SATS SYSTEM SERVICE TESTS «suck §.C.) 16-SEP-1984 01:04:1 AX/VMS Macro V04- Pa 
Sou S888 DECLARATIONS Set Pi Bhi 93i18 Se TP ey RET SAYSSSS.MAR: 1 - dy 
0000 ur ; -PSECT RODATA,RD,NOWRT,NOEXE,PAGE 
i: TEST_MOD_NAME : 
30 38 53 53 53 54 41 53 00" 80 eASCIC /SATSSS80/ ; needed for SATSMS message 
8 TEST_MOD_NAME_D: 
53 53 53 54 41 53 00000011 "01059099" ? 2 ~ASCIB /SATSSS80/ ; module name 
19 3 TEST_MOD_BEGIN: ; start end and fail messages 
6E 75 67 65 62 89° 13 4 sASCIC = /begun/ 
1F 5 TEST_MOD_SUCC: 
6C 75 66 73 73 65 63 63 75 73 90° i 6 “= TASCIC /successful/ 
8 A 7 TEST_MOD_FAIL: 
64 65 6C 69 61 66 0" 3 " 8 eASCIC /failed/ 
031 89 CS1: ; failure messages 
21 $f 74 73 65 rr 00000 oe BLOF 000° 0031 90 -ASCID \Test !AC service name !AC step ‘ul failed.\ 
6— 20 $° $ 69 ¢ 65 73 20 43 41 O003F 
70 65 74 20 43 41 21 20 92 D $} Bne8 
2E 64 65 6C 69 61 66 20 4C 55 21 20 ? 91 es2 
74 63 65 70 78 45 990000 *010E0000' oes 92 Z eASCID \Expected 'AS = !XL received !AS = !XL\ 
4C 58 21 20 3D $0 53 41 21 9 $4 5 0071 
41 21 20 64 65 76 69 1 $3 3 g 07D 
4C 58 21 20 3D 2 +94 93 83; 
74 63 65 70 78 45 99000098 "9106900 * 0090 94 < -ASCID \Expected 'AS'UB = '!XL received 'AS'UB = !XL\ 
20 3D $0 $6 55 21 53 41 21 20 $s O9E 
64 65 76 ¢ 65 $3 82 72 9 4C 58 21 OOAA 
58 21 20 3D 20 42 55 21 41 21 ¢0 Bne 
C 95 CSS: 
69 20 65 64 6F 4D goopgoce' gio 8090" C 96 -ASCID \Mode is !AS.\ 
2—E 53 41 21 20 | or ns 
73 75 74 61 74 73 000000DF '010E0000" O07 98 "  ASCID.-\status\ * Reahgaies ice 
72 65 73 75 000000ED'010E0000' OES } ? siaahel -ASCID \user\ : . 
60000003 FY 1 § " LONG 3 ; PUTMSG message vector 
411 F5 1 ~ LONG YE TPs TERT 
8 $000) F9 =: 104 - LON 
16F FD 105 -ADDRESS MESSAGEL 
101 1 $ PURGWS: 
53 57 47 52 55 50 89" : : 1 -ASCIC /PURGWS/ 3 service name 
70 20 63 6F 72 70 00000110°010E0000" O108 109 ee CasciD 7 t/ 
° “ ‘ roc cn 
Me be os boo? O11 re 


| 


eT 
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SATSSS80 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 01:04:1 AX/VMS Macro V04- Page 
yOu 000 DECLARATIONS Tet 8:93:43 UETPSY. SAE ISAT SSSOD.MAR: 1 . 
118 #69113 
11 18 -SBTTL R/W PSECT 
0000 VW -PSEC RWDATA,RD,WRT ,NOEXE , PAGE 
115 TPID: 
00000000 118 CURRENT shOne 0 ; PID for this process 
00000000 4 118 * LON 0 3 ptr to current test case 
11 «ALIGN LONG ; put it on a long word boundry 
120 REG_SAVE_AREA: 
00000044 7 ! moo nse tebe. 5 : register save area 
00748009 rt } Z THN appRieoN® UETPS_SATSMS ; test module message code for putmsg 
00000000' a8 5 ei, -ADDRESS TEST_MOD_NAME 
00000019" 4s 5 Pint ADDRESS TEST_MOD_BEGIN 
00 005 1 § " BYTE 0 i protection return byte for SETPRT 
051 130 PRIVMASK 
00000000 00000000 Be) } 1 pe UAD 0 i priv. mask 
00000000 B28 ! nates «LONG 0 ; change mode continue address 
00000065 008p : 5 im 2 3; returned address's from SETPRT 
00000000 063 ; ae: " {LONG 0 
00000000 '¥24 133 meee -LONG 0 ; current mode string pointer 
74 73 69 67 65 72 00000075"91069009" 54 141 ; -ASCID \register R\ 
= . $e 142 REGNUM 
00000000 7F 148 am, «LONG 0 i; register number 
00000050 145 -LONG 80 3; buffer desc. 
00000088 ' 198 oa -ADDRESS BUF 
00000008 OB 148 aim -BLKB 80 
0000000 Op | oe .LONG 0 ; desc. for BUF_CHECK routine 
00000EB' pf 13 Ge TeUF : ADDRESS GETBUF +8 
9084 FS 1 : " ,LONG 132 
id E 154 ADDRESS .+4 
000016F 9 B 155 -BLKB. 132 
F 1 § MESSAGEL: 
00: +4 16F 1 - LON 0 3 message desc. 
00000088" 01 ; 138 ADDRESS BUF 
00000000 15 180 pn 0 ; service name pointer 
178 161 MSGVECT: ma : PUTMSG message vector 
it 4 188 “LONG UETPS_ TEXT 
$80 0 187 165 “LONG §60 
1 166 GET_LIST: 
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SATSSSBO = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 01:04:10 YVAX/VMS Macro V04- P 
$bu 3880 R/W PSECT §-8 P= 1984 83:93:18 Heer eey aes oaleesho mars 1 — dy 
9 4 0188 167 «WORD 4 : GETUPI item List 
D O18 1 8 “WORD JPI$_PPGCNT 
2088 198° F “LONG PPG_CNT 
88 1 ; 159 LONG 8 
198 1% PPG_CNT 
00000000 Ps V7 pee ere 0 ; before WS peak 
00000000 19t 123 ‘ie ane hon® 0 : after WS peak 
44 4645 8 183 159 ~""SADDRESS TOUCH_PAGE ; PURGWS address block 
00000000' 1a? 128 oe apedAPORESS TOUCH” PAGE 
9000000° 1AB «180 ~" JADDRESS TEST_MOD_NAME ; LCKPAG address array 
00003C6' AF 1 “ae SADDRESS TEST-END 
1B3 1 : SPURGWS PURGE _AREA 3; PURGWS parameter List 
0000 000 184 .PSECT TOUCH_PAGE,RD,PAGE 
000 185 ALIGN PAGE 
0000 1 : TOUCH_PAGE : 
00000600 0000 1 -BLKB 1536 ; 3 pages to touch 
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UETPSY.SRCJSA o8580.MAR:1 : f) 


»PSECT SATSSSED -RO UAT EXE PAGE 
»SBTTL SATSSS 


oy 
FUNCTIONAL DESCRIPTION: 
After performing gone initial housekeeping, such as 
es the moquee begin message and ye gee needed privileges, 
he 4 em services are tested in each of their normal conditions. 
ed failures are identified and an error message is printed 
on the terminal. Upon completion of the test a success or fail 
message is printed on the terminal. 
CALLING SEQUENCE: 
$ RUN SATSSS8O ... (DCL COMMAND) 
INPUT PARAMETERS: 
none 
IMPLICIT INPUTS: 
none 
OUTPUT PARAMETERS: 
none 
IMPLICIT OUTPUTS: 


Messages to SYSSOUTPUT are the only output from SATSSS80. 
They are of the form: 


ZUETP=S=SATSMS, TEST MODULE SATSSS80 BEGUN ... (BEGIN MSG) 
RUETP=S-SATSMS, TEST MODULE SATSSS80 SUCCESSFUL ... (END MSG) 
RUETP=E=SATSMS, TEST MODULE SATSSS80 FAILED ... (END MSG) 
RUETP-I-TEXT, ... (VARIABLE INFORMATION ABOUT A TEST MODULE FAILURE) 


COMPLETION CODES: 


The SATSSS80 routine terminates with a $EXIT to the 
operating system with a status code defined by UVETPS_SATSMS. 


SIDE EFFECTS: 
none 


Sete Ge Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge GeGe Ge Ge Ge Ge Ge Ge Ge Ge Ge 


SooqooocccooooooooooooooooooooooooQooOoQoOoCoOoOoOoOooOoOoCooooOoOo -~< 
DONAUVE WN $C OOO NAUSEA $$ 9 OD NAU EWN OS OD NAU EWN OOD NO UE WIN 00 


PoPoPOROroRonononononononononononononononononononononononononononononononofnuny 3 
WAI AAAI AIR IRIPONOPONIPUNININD 2 2 3 SS BQO OOD ODO 000000000000 


$= 9-9 $-9-9-$-t- 0-9-9 ttt ata tatatatatatatatatatatatotatatatototatotototototetetotetetetotatatas 


SOOoOCOooOooooCOoOCoCoOOoOoOOOOOOOOOOOOOOOOCOOOoOOoOO 
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TEST_START SATSSS80 ; let the test begin 
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SATSSS80 = SATS SYSTEM SERVICE TESTS (SUCC S.C.) 16-SEP-1984 01: AX/VMS oV Page 7 
5042800 SATSS $33 miley 7 4: ate UETPSY.S Bee eesho. MAR; 1 . (1) 
0000 ,ENTRY SATSSS80,0 
ss D4 CLRL W*CURRENT_TC 
0 OD PUSHL #0 
000'CF DF PUSHAL W“TPID 
00000000 ' GF 3 FB § CALLS EE sept 
00000000 ° GF FB 1 CALLS #0,G*SYSSHIBER 
OO9'CF 7F OO1A PUSHAQ W*fEST_MOD_NAME_D 
00000000 ' GF 1 fe a3 CALLS #1 gS, STSSSETERN 
037A 3 3 SBW W*MOD_MSG 
O04C'CF OF ‘CF pF 8 MOVAL W*TEST aco. cue t W*TMD_ADDR 
0044'CF 03 0 4 + F hs # Uecess. a0, ;W°MOD _ASG_ CODE 
0265'cF 01 FB 00 : CALLS #1,W°REG_SAVE 
003D STPO: 
+ D 39 -SBTTL PURGWS TESTS 
03D 40 ;+ 
003D 41 ; 
tts 5 3; SPURGWS tests 
003D 44 ; test _S form with a dry WS and adr array elements = 
ee 
0177"CF O101'CF ODE $b3p 47 MOVAL W*PURGWS, W*SERV_NAME 3 set service name 
OO69"CF OQOOES'CF DE 0044 48 MOVAL W*UM 3 set the mode 
0048 249 MODE TO 16S, KRNL ,NOREGS t get to kernel mode 
59 90090000' 9F DO 0068 250 MOVL  aa#CTLSGL_PH : get the process header adr 
0051'°C 69 DE OO6F 251 MOVAL PHDSO SPRIVASK CR). W*PRIVMASK 3 get the priv. mas 
0074. 26 MODE FROM, TOS 3; return to user mode 
0075 PRIV ADD, PSWAPM > allow page locking 
00 OD 493 54 PUSHL 3; push a dummy parameter 
O265'CF O01 FB 009 55 CALLS REG_SAVE 3 save a reg snapshot 
09C 36 $LCKPAG § ‘haps =W*LOCK_AREA t nail down everything but TOUCH_PAG 
OAB 5 SPURGWS S TMADR =W“PURGE_AREA 3 squeeze the juice out of this proc 
0B6 58 FAIL =CHECE S$_NORMAL ; check for success 
01 DD 0086 sit 4 ge A NORMAL 
O26F 'CF 01 FB 0088 at #1 we REG_CHECK 
0003 $23 ' SGETJPI_S TALS Tou GET_LIST 3; get the process page count in ques 
OD 61: 
it 6¢ ; test _S form with adr array elements one page apart 
00D 64 ;:- 
0 p 65 NEXT_TEST 
4 STP1 
0004 'CF 01 dO D VL #1,W*CURRENT_TC 
0 OD D PU 
1 F D9 cauts #1 weREG. save 
01a7" cr 1800 tre eee 3 66 ADDL 2 #511,W*PURGE_A : set new adr array element 
018F 19F°CF DE E 6 w*PPG_CN NUL vTOET Lists 3 point to a new storage location 
433 $8 SPURGUS_§ 5 TMABR =W“PURGE_AREA 3 squeeze blood out of a turnip 
F 6 FAIL ~CHECK NORMAL : check for success 
4 OD F9 sisie BSSé NO NORMA 
O26F'cF 01 FB OOF CALLS — #1 WFREG CHECK 
10 370 SGETJPI_S Taustew GET LIST : get the new process page count 
O19F*CF O19B°CF D1 O11 71 CMPL “W*PPG_CNT,W* PPCe CNT1 ; are they the same? 
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vou2000 PURGWS TESTS $73 P=19 3b eH UETPSY. ae oe yee 80 MAR; 1 . d) 
7. tw OI if BEQL 10$ ; br if vet the are 
19F°CF OD QO} 7 PUSHL W*PPG_ eure 3; push receive 
HY Se DD 01 74 PUSHL U*PPG- CNT 3 push exp eved 
10 tf DF 01 75 PUSHAL W*WS_STR 3 push str ny variable 
02B1'CF 3 FB OQ12A 8 CALLS 43, OPPRINT FAIL ; print the failure 
12F 77 108: 
12F 8 3+ 
12F 79 ; 
4 : 9 ; test _G form with one page of juice in the process page count 
12F ¢ :- : 
1 : NEXT_TEST ‘ 
12F STP2: 
0004 ' CF 02 dO O1eF MOVL #2,W*CURRENT_TC 
00 OD 134 PUSHL # 
0265'CF 01 FB 0136 CALLS #1,W*REG_SAVE 
O18F'CF O19B'CF OD 1 3 84 MOVAL W*PPG_CNT,W*GET CIST+4 ; reset the age page pointer 
OOOO'CF D5 014 85 TSTL W*TOUTH_PAGE 3; suck in a new page 
0146 86 ScETUPI S$ Ems Tourer LIST : get Pe page. count after touch 
0158 87 SPURGWS G W ; 
p164 88 FAIL ~CHECK $$ RNORM : check” BT 
01 OD 0164 SHL asss.n MAL 
O26F'CF O01 FB 0166 CALLS #i,W "REG. CHECK 
OIBF'CF O19F"CF DE 0168 89 MOVAL ent ueGeT LIST+4 ; set new page count pointer 
b126 90 S$GETJPI § TTACSTeuee LIST 3 get the new process page count 
019B°CF D7 018 91 DECL w*P ; create expected 
O19F'CF O19B°CF D1 0188 9 MPL wPPGe CNT,W*PPG_CNT1 ; did we squeeze a page out? 
11. +13 0192 9 BEQL 20$ ; br if yes 
O19F'CF DD 0194 94 PUSHL W*PPG_CNT1 3 push recieved 
019B'CF DD 0198 95 PUSHL wees CNT 3 push expected 
O108'CF DF 019C 36 PUSHAL S_STR 3 push string variable 
02B1'CF 03 FB O1A0 9 CALLS #3" WORPRINT FAIL 3 print the failure 
Q01A5 98 208: 
01A5 99 i+ a 
Q1A5 00 : 
01A5 01 ; test _S form with more than one page to recover 
O1A5 Bg i. : 
Bias 03 ;- 
1A5 304 NEXT_TEST 
1A5 
1A5 STP3: 
0004'CF 03 bdO O1A5 ar. #3,W*CURRENT_TC 
0 DD 1AA eke 
0265'°CF 1 F 1AC CALLS W*REG_SAVE 
O1A7'CF 700 400 BF C 1B1 0 ADDL2 #1024 PURGE AREA+4 ; make a three page purge area 
018F'C 19F°CF DE OBA $ MOVAL W*PPG’ “gi! are LIST+4 3 reset the process page pointer 
&f ‘CF OD 1C1 } MOVAL W* A 3 set a page pointer 
03 OD 166 8 MOVL 3; set a page count 
1¢ 09 30$: 
66 05 O1C9 10 TSTL ; touch a page 
56 00000200 8F c9 1¢ 11 ADOL2 i R6 3 point to next page 
F457 «FS OID I SOBGTR 6$ : do all pages 
0 DD Q1D 1 PUSHL ; push a dummy paramter 
0265'CF 1 FB 01D 14 CALLS REG_SAVE ; Save a reg Snapshot 
19¢ 15 SCETIPI_S Ft went. =W*GET LIST : get the process reo count 
1F 16 SPURGWS- 3 INADR=W*PURGE_AREA ; clean it up 


SATSSS80 syst SYSTEN SERVICE TESTS suck 5” 5.2.3 Ig- SEP-1984 
FC) 317 FAIL_CHECK SS$_NORMAL 
ozer'cr $1 PR OtEE Th tice 
OlBF'CF O19B'CF DE o8 18 VAL W*PPG_CNT,W*GET_CIST+4 
A 1 $GETJP1_S Tracst=w \GeTCIsT 
O19F'CR 803 «OC iF 0 BL2 “#3,W*PPG CNT 
O19F "CF 0198°CF : 4 PL WrbPG_CNT, W°PPG_CNT1 
198; CF my) D PUSHL W*PPG_CNT 
Ort F'CF DD 1 4 PUSHL W*PPG7CNT1 
1 08" CF DF 5 5 PUSHAL W*wWS STR 
O2B1'CF 03 FB 9 6 sake #3,W"PRINT_FAIL 
E 8  TEST_END 
the DD ; “ PUSHL W*TMD_ADDR 
seid a 7 purer gg een 
soooono0r24*" Se 8B Rats in sie 
wore tell Be mA 
00000000'GF 01 FB ogee CALLS #1,G*SYSSEXIT 


4: 


GNAL 


L419 WOMPTE NESSES mans 


3; check for success 


set new PPG pointer 

get new process $ page count 
set expected P 

gre, d ye of** at one 3 pages? 
ay onrtined 

push expected 

push string variable 

print the failure 


,#STS$V_INHIB_MSG,#1,W*MOD_MSG_CODE 


9 
(1) 
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SATSSS80 = SAT 
5005800 REG_SAV 
; -SBTTL REG_SAVE 
FUNCTIONAL DESCRIPTION: 
Subroutine to save R2-R11 in the register save location. 

CALLING SEQUENCE: 

PU ; save a cuaay parameter 

CALLS #1,W*REG_SAVE ; save n2-R11 


INPUT PARAMETERS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


REG_SAVE: 
WOR *M<R2,R3,R4,R5,R6 
hove #4*10.°xK14( fp P) wR 
+4 -SBTTL REG_CHECK 
; FUNCTIONAL DESCRIPTION: 
Subroutine to test RO & R2-R11 for pro or content after a service 


progutien. @ % snapehes is taken by the REG_SAVE routine at the 
beginning of each step and this routine i§ executed after the 


»R8,R9,R10,R11> 


R7 
EG_SA VE AREA ; save the registers in the program 


F 
OOO8'CF 14 AD 28 ¢ 


services have been executed. 


: CALLING SEQUENCE : 
: PUSHL #SS$_X : push expected RO contents 
: CALLS #1 UTREG. CHECK : execute this routine 


INPUT PARAMETERS: 
expected RO contents on the stack 


DWONAUE WN OOD NAME WN SO OD NAU EWN 0 OO NAUES WN OOONOAUE Wn 


COO909 09 09 090900 Sy IS DDD DDD DD TTT TTT BES BS BB NANI NIIIIO 


; OUTPUT PARAMETERS: 
possible error messages printed using SPUTMSG 
REG_CHECK: 
OFFC . WORD *M<R2,R5,R4,R5,R6,R7,RB,RI,R10,R11> 
50 O04 AC 01 CMPL 4(AP) ,RO ; is this the right fail code? 
13 BEQL $ ; br if yes 
DD PUSHL ; push received data 
DD PUSHL CAP) 3; push expected data 
oop? CF DF PUSHAL W*EXP 3; push the string variable 
02B1'CF 3. «FB 108 ALLS #3. W*PRINT_FAIL ; print the error message 
OO0O8'CF 14 AD ; $ 1 ; cores #4210,°X14(FP) ,W*REG_SAVE_AREA ; ghost 8 alt but RO 
56 53 0000 yes" F (3 set #REG_SAVE_AREA,R3,R6 : RA the register number 
7E 6 § 5 ADOB ake R6,-(SP) : set number past RO-R1 and save 
1 CA § BICL £ Rf ; backup to register boundrys 
3 CA BICL a *R 
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v04 REG_CHECK ae ants 8:93:18 LOE TPey eae a gay eesso.mAR:1 
6 DD A PUSHL (R1) 3; push received data 
8 0D nS § PUSHL Ry} 3 even expected data 
, 0060 ff OF A 0 PUSHAL W*REG 3; set string pntr param. 
02B1'CF 4 FB 60 4 208: CALLS #4,W*PRINT_FAIL ; print the error message 
04 028 38 ve ore 
BI 34 ae .SBTTL PRINT_FAIL 
81 96 : FUNCTIONAL DESCRIPTION: 
4 4 : Subroutine to report failures using SPUTMSG 
BI 39 $ CALLING SEQUENCE: 
Bi 400 ; Mode #1 PUSHL EXPECTED Mode #2 PUSHL REG_NUMBER 
ai $3 3 PUSHL RECEIVED PUSHL EXPECTED 
0281 4 ; 3 PUSHAL STRING VAR PUSHL RECEIVED 
8 Bi 403; CALLS #3,W*PRINT_FAIL PUSHAL STRING_VAR 
B1 404; CALLS #4,W*PRINT_FAIL 
0281 405 ; Mode #3 PUSHAL STRING_VAR 
8 + rt ; CALLS #1,W*PRINT_FAIL 
0281 408 : INPUT PARAMETERS: 
8 4 ref : Listed above 
0281 411 : OUTPUT PARAMETERS: 
0281 216 : an error message is printed using SPUTMSG 
02B1 413; 
058} ais 
0281 416 PRINT_FAIL: 
003C 0281 41 WORD “M<R2,R3,R4,R5> 
0283 418 $FAO_S W*CS1,W°MESSAGEL ,W°MSGL .#TEST_MOD_NAME ,W*SERV_NAME ,W“CURRENT_TC 
0204. 419 SPUTASG_S W*MSGVEC : print the msesage 
06 6C 91 Q2ES 420 CMPB CAP) ,#4 ; is this a register message? 
260 O13 8 EB 421 BEQL 10$ 3; br yes 
01 of + 8 45 ? ¢ iy (AP) ,#1 5 3 this just a message? 
: br es 
0 Fr 424 $FAO_S U*CS2,W*MESSAGEL .W°MSGL,4(AP) ,8(AP) .4(APS.12(AP) 
40 11 0 : ? 5 108 BRB 30$ ; goto output message 
O31 4 $ : SFAO_S W*CS3,W*MESSAGEL ,W°MSGL ,4(AP) ,16(AP) ,8(AP) ,4(AP) ,16(AP) ,12(AP) 
19 #11 3 ? 8 208 BRB 30$ ; goto output message 
0187°CF 04 AC DO 0337 4350 , MOVL 4(AP) ,W*MSGVEC1+12 3; save string address 
D 431 SPUTMSG_S W°MSGVECT t print the message 
11 11 56 ? § 30s BRB 40$ ; skip the other message 
5 4 4 ial SPUTMSG_S W°MSGVEC ; print the message 
O375'CF 00 FB 0361 4 6 "CALLS = #0, W*MODE_ID ; identity the mode 
004C'CF al“ OF 66 4 MOVAL wr fest MoD FAIL,W*TMD_ADDR ; set failure message address 
0044'CF 03 02 fy $0 ? 3 jay #ERROR, #0 ,83,W*MOD_MSG_CODE 3 set severity code 
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.SBTTL MODE_ID 


+ 
FUNCTIONAL DESCRIPTION: 
Subroutine to identify the mode that an exit handler is in. 


: CALLING 1 wee’ 
CAL ’ ,W*MODE_ ID 


INPUT PARAMETERS: 
MODE contains an — pointing to an ascii string desc. 
of the current CPU mo 


Pt at tt a eee 
DDD PPG BB 


NR OOONAWNES WH CO OONOU SE wr 


OUTPUT PARAMETERS: 
NONE 
ODE_ID: 
. WORD “nce, »R3,R4,R5> 
$FAO_S w*CS W'ESSAGEL , W*MSGL,MODE ; format the error message 
SPUTRSc _S W°MSGv : print the mode message 
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D SEP=1984 UETPSY.SRCIJSATSSS 
A 465 MOD_MSG_PRINT: 
A 487 : LARABAAAAAAALALSLALALALALALALELE SEES E EERE EERE REESE EERE ERE RS EER AEE OSG 
A ; Ea 
A igs : * PRINTS THE TEST MODULE BEGUN/SUCCESSFUL/FAILED MESSAGES > 
A 470 ; (USING THE PUTMSG MACRO). . 
. * 
A $6 : PRRBAARALALALALALALALALALALESELEEEE LEE SASL ASAE ERE EERE EERE RSLS S EEE ESS 
A 3 
Ao 47% PUTMSG <MOD_MSG_CODE,#2,TMN_ADDR,TMD_ADDR> ; PRINT MSG 
0S O38D 475 RSB t eee AND RETURN TO CALLER 
E 476 : 
BE 477 CHMRTN: 
0 + +78 3 ea erg ee Ty ee ee ee 
0 BE 480 ; CHANGE MODE ROUTINE. THIS ROUTINE GETS CONTROL WHENEVER * 
BE 481: * A CMKRNL, CMEXEC, OR CMSUP SYSTEM SERVICE Is ISSUED « 
03BE 48¢ : Y TH r — MACRO ('TO' OPTION). IT MERELY DOES . 
O3B8E 483; * A JUMP INDIRECT ON A FIELD SET UP BY MODES wit HAS « 
O3BE 484: * THE EFFECT OF RETURNING TO THE END OF THE MODE » 
O38E 485: * MACRO EXPANSION. * 
O3BE 486: * e 
tt rit 3 PRARBAARAAAAAAALALALALALASZALALAZLAELALALELAESEE LESSEE SEE EEE EEE ERE REE REE SSS SC 
0000 O3BE 489 ° .WORD 0 ; ENTRY MASK 
00000059'FF 17 030 490 jmp @CHM_CONT : RETURN TO MODE MACRO IN NEW MODE 
Bare $36 : RET INSTR WILL BE ISSUED IN EXPANSION OF ‘MODE FROM, ...." MACRO 
03¢6 494 TEST_END: 
03(6 «495 .END  SATSSS80 


SATSSS80 
Symbol table 
SSARGS 


C 
CTL$GL_PHD 
CURRENT_TC 
ERROR 

GE TBUF 
GET_LIST 
INFO 
JP1$_PPGCNT 
LIBSSIGNAL 
LOCK_AREA 
MESSAGEL 
ML 

MODE 


MODE_ID 
MOD_ASG_CODE 
MOD"MSG_PRINT 
SGC 


MSGVEC 
MSGVEC1 
PHD$Q_PRIVMSK 
PPG_CAT 
PriA "FALL 
PRIVMASK 
PRIV_ARGS 
PRV$V_PSWAPM 
PRVPRT 
PURG 
PURGE _AREA 
PURGWS 
PURGWS$_INADR 
PURGWS$_NARGS 
REG 
REGNUM 
REG_CHECK 
REG_SAVE 
REG_SAVE_AREA 
RETADR 
SATSSS80 
RV 
SEVERE 
SHRSK_SHRDEF 
SHRS_TEXT 
$_RORMAL 
STATUS 
STEP 
STPO 
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SH 
cae 
at 
ae 
000001AB 
$30 
itt 8 
$e 
ag000088 
itt 
44 44 4 4 
Se 
et 

of 
33000 
sie 
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ap 

‘ 


DDDDDDDD 
a 


Wow 
owe 
a DBD 


ooo 
Wwr 


Ooooo COOCOCOCOCOOO 
AVIA ARIWYIWW 


oooo 
MW 


Oooooo°ooe 
AWN NWNN A 


03 
05 


= 4 1 Ft HNN NN nNnnnnwnnnn 


THN” ADDR 
TOUCH PAGE 


UETPS_SATSMS 
UETPS-TEXT 
UM 

WARNING 
WS_STR 
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18 yee Macro V 
4 UETPSY.SRCISAT 

Oge g 5 
2F R 5 
1A5 R 5 

1¢ 

01 
eeakeeee GX 5 
eereneee 6X 5 
keekeree x 5 
keeeeeee 6X 5 
eereaeer 6X 5 
eeeeeaee § 6X 5 
eeeeeren 6X 5 
keeeeeee § 6X 5 
kereeene 6X 5 
keeeeeee 6X 5 
eeeeeene § GX 5 
00003C6 R 83 
O00002A ROS 
Se 8 
0000009 R 0 
464 9 R 8g 
000 bes R 0 
0000048 R 03 
44444 2 SS 
00 4 R 3 

074 909 

00741133 
QOOOO0ES R 02 

44's 4 
0000108 R 02 
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! Psect synopsis ! 


$e eee ete een een eea$ 


PSECT name Allocation PSECT No. Attributes 
» OS « 8 0 68 7 “¢ -)» 00 ¢ ) NOPIC USR CON ABS LCL aa rhe NOEXE NORD NOWRT NOVEC BYTE 
SABSS ‘ -) O1 ¢ -) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
pate 118 (¢ 283.) ¢ ( ¢°3 NOPIC USR CON REL LCL NOSHR NOEXE R NOURT NOVEC PAGE 
RWD 1 ( 463.) ( -) NOPIC USR CON REL LCL NOSHR NOEXE' RD WRT NOVEC PAGE 
TOUCH MAGE 0 g ( 1338-3 4 ( ¢°3 NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE 
SATSSS80 0 C ( 66.) 5 ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC PAGE 
g¢oeeees erm ceases ee eae eeceeccen} 
! ; Performance indicators : 
Phase Page faults CPU Time Elapsed Time 
Initialization 89 00 100: 00.11 80:00:00.6 
comnens processing 197 OF 80.95: 07 $4 ro 
Symbol table sort g 00; 0:01:35 0:00:09. 17 
pees 2 11 00:00: $-36 0:00:05.43 
ymbol table output 11 Bae $288.8 0:00:01.03 
preee synopsis output 2 0:00:00.04 00:00:00.06 
Cross-reference output 0 eS SY 00:00:00.00 
Assembler run totals 640 00:00:17.0 00:00:44.48 


The working set Limit was 1350 pages. 

67614 bytes (133 pages) of virtual memory were used to buffer the intermediate cod 

There were 50 pages of symbol table space allocated to hold 979 non-local and 12 focet symbols. 
495 source Lines were read in Pass 1, producing 26 object records in Pass 2. 

47 pages of virtual memory were used to define 42 macros. 
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Macro Library name Macros defined 
$53580Uk Mg A gins: 2 26 
ora Th + on i "9 
rey $081) 
CS ySLi63 STARLET. Pale: 32 9 
Bis att’ Libraries) 3 


1267 GETS were required to define 39 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SATSSS80/0BJ=0BJ$:SATSSS80 MSRC$:SATSSS80/UPDATE=(ENHS$: SATSSS80) +EXECML$/LIB+SHRLIB$:UETP/LIB 
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